home *** CD-ROM | disk | FTP | other *** search
/ Aminet 33 / Aminet 33 - October 1999.iso / Aminet / comm / misc / DragonDaemon.lha / DragonDaemon-Install / Install < prev    next >
Encoding:
Text File  |  1999-07-10  |  18.9 KB  |  616 lines
  1.  
  2. ; *****************************************
  3. ; *                                       *
  4. ; *  DragonDaemon-Installationsskript     *
  5. ; *                                       *
  6. ; *  $VER: 1.2 (10.07.99) by J.Reinert    *
  7. ; *                                       *
  8. ; *****************************************
  9.  
  10.  
  11. ; *************************************************************************
  12. ; Definition der globalen Konstanten
  13. ; *************************************************************************
  14.  
  15. (set #liesmichtext     "Lies_mich.TXT")       ; Schlusswort
  16. (set #aiconname        "DragonDaemonStart")   ; Name Autostart-Icon
  17. (set #aiconsource      "daemon.noinfo")       ; Quellname Autostart-Icon
  18. (set #aicondest        "SYS:WBStartup")       ; Ziel für Autostart-Icon
  19. (set #doksource        "Docs")                ; Anleitungen
  20. (set #developersource  "Entwickler")          ; Entwickler-Infos
  21. (set #progssource      "Programme")           ; Programme
  22. (set #admmakrosrc      "ADM")                 ; Schublade mit ADM-Makros
  23. (set #dfamakrosrc      "DFA/DragonDial.dfa")  ; Name des DFA-Makros
  24.  
  25. ; *************************************************************************
  26. ; Definition der deutschen Texte
  27. ; *************************************************************************
  28.  
  29. (set #askprgdirmsg "Bitte wählen Sie die 'DragonTools'-Schublade aus.")
  30.  
  31. (set #askprgdirhelp
  32.   (cat "Es ist sehr wichtig, dass Sie die Schublade auswählen, in der "
  33.        "sich das konfigurierte Programm 'DragonTools' befindet. "
  34.        "DragonDaemon verwendet die selbe Prefs-Datei wie DargonTools.\n\n"
  35.        "Falls Sie eine ältere Version per Autostart-Icon starten ließen, "
  36.        "wird der Pfad vermutlich schon stimmen"
  37.   )
  38. )
  39.  
  40. (set #askadmmakros
  41.   (cat "Adress-Datenbank \"ADM\"\n"
  42.        "----------------------\n\n"
  43.        "Wenn Sie Ihre Adressen und Telefonnummern mit dem "
  44.        "Programm 'ADM' verwalten, können Sie jetzt zwei ARexx-Makros "
  45.        "installieren, welche Ihnen als Wahlhilfe dienen können. Das "
  46.        "Kleinere der beiden ist sehr einfach gehalten. Das zweite Makro "
  47.        "basiert auf dem Ersten und wurde von Volker Weber leicht erweitert.\n\n"
  48.        "Möchten Sie die Makros installieren?"
  49.   )
  50. )
  51.  
  52. (set #askadmdialdirmsg
  53.   (cat "in welche Schublade soll das Makro kopiert werden? (Es "
  54.        "wird KEINE neue Schublade angelegt!)"
  55.   )
  56. )
  57.  
  58. (set #askadmdialdirhelp
  59.   (cat "Wählen Sie am besten die 'ARexx'-Schublade von ADM oder "
  60.        "eines der dort enthaltenen Unterverzeichnisse. Um das "
  61.        "Makro nutzen zu können, müssen Sie es in ADM später noch "
  62.        "in das 'Makros'-Menü eintragen."
  63.   )
  64. )
  65.  
  66. (set #askdfamakros
  67.   (cat "Adress-Datenbank \"DFA\"\n"
  68.        "----------------------\n\n"
  69.   
  70.        "Wenn Sie Ihre Adressen und Telefonnummern mit dem "
  71.        "Programm 'DFA' verwalten, können Sie jetzt ein ARexx-Makro "
  72.        "installieren, welches Ihnen als Wahlhilfe dienen kann.\n\n"
  73.        "Möchten Sie das Makro installieren?"
  74.   )
  75. )
  76.  
  77. (set #askdfadialdirmsg
  78.   (cat "in welche Schublade soll das Makro kopiert werden? (Es "
  79.        "wird KEINE neue Schublade angelegt!)"
  80.   )
  81. )
  82.  
  83. (set #askdfadialdirhelp
  84.   (cat "Wählen Sie am besten die Schublade von DFA, in der "
  85.        "sich auch andere ARexx-Makros befinden"
  86.   )
  87. )
  88.  
  89. (set #askdeveloper
  90.   (cat "Wenn Sie Applikationen für DragonDaemon programmieren möchten, "
  91.        "können Sie die dafür notwendigen Informationen umkopieren. Für "
  92.        "ARexx- und Blitz- und C-Programmierer sind Beispiele enthalten\n\n"
  93.        "Möchten Sie die Entwicklerinfos installieren?"
  94.   )
  95. )
  96.  
  97. (set #askdeveloperdirmsg "Wo soll die Entwickler-Schublade angelegt werden?")
  98.  
  99. (set #askdeveloperdirhelp
  100.   (cat "Die Entwicklerinfos beinhalten Informationen zu ARexx-Port "
  101.        "und Exec-Messageport sowie Beispiele in ARexx, BlitzBASIC und C. "
  102.   )
  103. )
  104.  
  105. (set #error_dtinstall1
  106.   (cat "\nAnscheinend haben Sie die falsche Schublade ausgewählt. "
  107.        "Starten Sie die Installation daher erneut.\n\n"
  108.        "Falls Sie 'DragonTools' noch nicht installiert haben, sollten Sie "
  109.        "dies jetzt nachholen"
  110.   )
  111. )
  112.  
  113. (set #error_dtinstall2
  114.   (cat "\nAnscheinend haben Sie das Programm 'DragonTools' noch "
  115.        "nicht konfiguriert (Prefs-Datei fehlt).\n\n"
  116.        "Starten Sie bitte erst DragonTools, setzen Sie die "
  117.        "Programmeinstellungen und speichern Sie diese. Danach "
  118.        "können Sie diese Installation erneut starten."
  119.   )
  120. )
  121.  
  122. (set #helpwbstartup
  123.   (cat "Da Sie ein Autostart-Icon installiert haben, ist es nicht "
  124.        "notwendig, daß Sie das Programm 'DragonDaemon' in der 'WBStartup' - Schublade "
  125.        "belassen. Entfernen Sie es bitte."
  126.   )
  127. )
  128.  
  129. (set #askwbstartup
  130.   (cat "Möchten Sie, daß 'DragonDaemon' bei jedem Rechnerstart "
  131.        "automatisch aktiviert wird ? \n\n"
  132.        "Wenn ja, wird im nächsten Schritt ein Projekt-Icon "
  133.        "in den \"WBStartup\"-Ordner Ihrer Boot-Disk kopiert\n\n"
  134.        "Wenn nein, bleibt ein eventuell vorhandenes Start-Icon erhalten."
  135.   )
  136. )
  137.  
  138. (set #aiconfail1
  139.   (cat "Es existiert keine 'WBStartup'-Schublade auf Ihrer SYS- "
  140.        "Partition. Wenn Sie 'DragonDaemon' bei jedem Rechnerstart "
  141.        "automatisch in Ihren Rechner laden möchten, wird diese unbedingt "
  142.        "benötigt.\n\nSoll eine Schublade erzeugt werden?"
  143.   )
  144. )
  145.  
  146. (set #aiconfail2
  147.   (cat "Leider existiert keine 'WBStartup'-Schublade auf Ihrer SYS- "
  148.        "Partition. Automatischer Programmstart ist daher leider nicht möglich."
  149.   )
  150. )
  151.  
  152. (set #askuserstartup
  153.   (cat "Wenn Sie die Programme 'Dial' und 'ShowCounter' auch in "
  154.        "einem Shellfenster starten möchten, können Sie jetzt einen "
  155.        "Suchpfad zu den Programmen eintragen lassen. Dazu wird Ihre "
  156.        "'User-Startup' verändert.\n\n"
  157.        "Soll die User-Startup geändert werden?"
  158.   )
  159. ) 
  160.  
  161. (set #askenv
  162.   (cat "Wenn Sie für das Programm 'Dial' im Shell-Modus einen bevorzugten Port "
  163.        "(a/b-Anschluss der DataBox) verwenden möchten, können Sie "
  164.        "dies durch setzen der ENV-Variable 'DEFDIALPORT' auf die "
  165.        "entsprechende Port-Nummer (1 bis 3) erreichen\n\n"
  166.        "Möchten Sie jetzt schon einen bevorzugten Port für "
  167.        "das Programm 'Dial' angeben?"
  168.   )
  169. ) 
  170.  
  171. (set #helpenv
  172.   (cat "Mit dem Programm 'Dial' wird das Wählmodul von DragonDaemon "
  173.        "aktiviert. Von Workbench gestartet, können Telefonnummer und "
  174.        "Port über Tooltypes übergeben werden. Wenn Sie es in einem "
  175.        "Shellfenster starten und immer ein bestimmtes Telefon nutzen, "
  176.        "sollten Sie den zugehörigen Port der DataBox als Vorgabe "
  177.        "setzen. Sie ersparen sich damit die Angabe bzw. die Auswahl "
  178.        "eines Ports"
  179.   )
  180. ) 
  181.  
  182. (set #nodaemon
  183.   (cat "Aus irgend einem Grund wurde das Programm \"DragonDaemon\" nicht "
  184.        "umkopiert. Wiederholen Sie bitte den Installationsvorgang"
  185.   )
  186. )
  187.  
  188. ; *************************************************************************
  189. ; Beginn der Installation
  190. ; *************************************************************************
  191.  
  192. (complete 0)
  193.  
  194. (welcome)
  195.  
  196. ; *************************************************************************
  197. ; DragonTools-Pfad ermitteln, falls Icon in SYS:WBStart vorhanden ist
  198. ; *************************************************************************
  199.  
  200. (if (exists (tackon #aicondest "DragonDaemonStart.info"))
  201.   (
  202.     (iconinfo (dest (tackon #aicondest "DragonDaemonStart"))
  203.               (getdefaulttool "testdir")
  204.     )
  205.     (set @default-dest (pathonly testdir))
  206.   )
  207. )
  208.  
  209. ; *************************************************************************
  210. ; Zielverzeichnis auswählen lassen
  211. ; *************************************************************************
  212.  
  213. (set #destname
  214.   (askdir
  215.     (prompt  #askprgdirmsg)
  216.     (help    #askprgdirhelp)
  217.     (default @default-dest)
  218.   )
  219. )
  220.  
  221. (if (= #destname "")
  222.   (
  223.     (abort "Fehler bei Auswahl!")
  224.   )
  225. )
  226.  
  227. (set #icon_toolentry (tackon #destname "DragonDaemon"))
  228. (set #dokdest (tackon #destname "Docs"))
  229.  
  230. ; *************************************************************************
  231. ; DragonTools-Installation prüfen
  232. ; *************************************************************************
  233.  
  234. (if (exists (tackon #destname "DragonTools.wizard") (noreq))
  235.   (
  236.     (if (not (exists (tackon #destname "DragonTools.Prefs") (noreq)))
  237.       (abort #error_dtinstall2)
  238.     )
  239.   )
  240.   (
  241.     (abort #error_dtinstall1)
  242.   )
  243. )
  244.  
  245. (complete 5)
  246.  
  247. ; *************************************************************************
  248. ; Icon-Typ auswählen
  249. ; *************************************************************************
  250.  
  251. (set #icontyp
  252.   (askchoice (prompt "Wählen Sie einen Icon-Typ aus")
  253.              (help "")
  254.              (choices "Standard" "MagicWB")
  255.   )
  256. )
  257. (if (= #icontyp 0)
  258.   (
  259.     (set #iconsource #progssource)
  260.   )
  261.   (
  262.     (set #iconsource "MWBIcons")
  263.   )
  264. )
  265. (complete 10)
  266.  
  267.  
  268. ; *************************************************************************
  269. ; Falls vorhanden, alten DragonDaemon beenden
  270. ; *************************************************************************
  271.  
  272. (if (exists "ExitDaemon")
  273.   (
  274.     (run "ExitDaemon")
  275.     (if (exists "RAM:OldDaemon_Removed")
  276.       (
  277.         (message "Ihre aktive Version von DragonDaemon wurde soeben aus dem Speicher entfernt. Nach erfolgreicher Installation müssen Sie \"DragonDaemon\" neu starten.")
  278.         (delete "RAM:OldDaemon_Removed")
  279.       )
  280.     )
  281.   )
  282.   (
  283.     (message "Eine eventuell aktive Version von DragonDaemon müssen Sie zuerst beenden, bevor Sie weitermachen! Benutzen Sie dazu das Programm \"Exchange\" der Workbench.")
  284.   )
  285. )
  286.  
  287. ; *************************************************************************
  288. ; Kopieren der Programme
  289. ; *************************************************************************
  290.  
  291. (if (exists #progssource (noreq))
  292.   (
  293.     (copyfiles (prompt "Programme kopieren")
  294.                (source #progssource)
  295.                (dest #destname) 
  296.                (help "")
  297.                (pattern "~(#?.info)")
  298.                (confirm "EXPERT")
  299.     )
  300.   )
  301. )
  302. (complete 40)
  303.  
  304. ; *************************************************************************
  305. ; Kopieren des Programmes AppMenuDial
  306. ; *************************************************************************
  307.  
  308. (if (exists "SYS:WBStartup/AppMenuDial")
  309.   (
  310.     (copyfiles (prompt "AppMenuDial in WBStartup kopieren")
  311.                (source "Programme/AppMenuDial")
  312.                (dest "SYS:WBStartup")
  313.                (help "")
  314.                (confirm "EXPERT")
  315.     )
  316.   )
  317. )
  318.  
  319. (complete 45)
  320.  
  321. ; *************************************************************************
  322. ; Kopieren der Daten, sofern sie nicht existieren
  323. ; *************************************************************************
  324.  
  325. (if (not(exists (tackon #destname "PhoneList.TXT") (noreq)))
  326.   (
  327.     (copyfiles (prompt "Telefonliste kopieren")
  328.                (source "Daten/Phonelist.TXT")
  329.                (dest #destname)
  330.                (help "")
  331.                (confirm "EXPERT")
  332.     )
  333.   )
  334. )
  335.  
  336. (complete 47)
  337.  
  338. (if (not(exists (tackon #destname "Provider.DAT") (noreq)))
  339.   (
  340.     (copyfiles (prompt "Providerliste kopieren")
  341.                (source "Daten/Provider.DAT")
  342.                (dest #destname)
  343.                (help "")
  344.                (confirm "EXPERT")
  345.     )
  346.   )
  347. )
  348.  
  349.  
  350.  
  351. (complete 50)
  352.  
  353. ; *************************************************************************
  354. ; Kopieren der Anleitungen
  355. ; *************************************************************************
  356.  
  357. (if (exists #doksource)
  358.   (
  359.     (copyfiles (prompt "Anleitungen kopieren")
  360.                (source #doksource)
  361.                (dest #dokdest) 
  362.                (infos)
  363.                (help "")
  364.                (all)
  365.                (confirm "EXPERT")
  366.     )
  367.   )
  368. )
  369. (complete 55)
  370.  
  371. ; *************************************************************************
  372. ; Installieren des Autostart-Icons
  373. ; *************************************************************************
  374.  
  375. (if (exists #aiconsource)
  376.   (
  377.    (if (not (exists #aicondest))
  378.     (if (askbool (prompt #aiconfail1) (help "") (default 0) (choices "Ja" "Nein"))
  379.       (makedir #aicondest (infos))
  380.     )
  381.    )
  382.    (if (exists #aicondest)
  383.     (
  384.       (if (exists #icon_toolentry)
  385.         (
  386.           (if ((askbool (prompt #askwbstartup) (help "") (default 0) (choices "Ja" "Nein")))
  387.             (
  388.               (copyfiles (prompt  "Icon kopieren") (source  #aiconsource) (dest    #aicondest) (newname (cat #aiconname ".info")))
  389.  
  390. ; *************************************************************************
  391. ; Default-Tool und Tooltypes (Zukunft) eintragen
  392. ; *************************************************************************
  393.  
  394.               (set #newaiconname (tackon #aicondest #aiconname))
  395.  
  396.               (if (exists (cat #newaiconname ".info"))
  397.                 (
  398.                   (Tooltype (dest #newaiconname) (Setdefaulttool #icon_toolentry))
  399.                   (if (exists "SYS:WBStartup/DragonDaemon")
  400.                     (message #helpwbstartup)
  401.                   )
  402.                 )
  403.               )
  404.             )
  405.           )
  406.         )
  407.       )
  408.     )
  409.     (
  410.       (message #aiconfail2)
  411.     )
  412.    )
  413.   )
  414. )
  415. (complete 60)
  416.  
  417. ; *************************************************************************
  418. ; ADM-Wahlhilfe installieren
  419. ; *************************************************************************
  420.  
  421. (if (exists #admmakrosrc)
  422.   (
  423.     (if (askbool (prompt #askadmmakros) (help "") (default 0) (choices "Ja" "Nein"))
  424.       (
  425.         (set makrodir (askdir (prompt  #askadmdialdirmsg)
  426.                               (help    #askadmdialdirhelp)
  427.                               (default @default-dest)
  428.                       )
  429.         )
  430.         (if (<> makrodir "")
  431.           (
  432.             (copyfiles (prompt "ADM-Makros kopieren")
  433.                        (source #admmakrosrc)
  434.                        (dest makrodir)
  435.                        (pattern "#?.adm")
  436.                        (help "")
  437.                        (confirm "EXPERT")
  438.             )
  439.           )
  440.         )
  441.       )
  442.     )
  443.   )
  444. )
  445.  
  446. (complete 65)
  447.  
  448. ; *************************************************************************
  449. ; DFA-Wahlhilfe installieren
  450. ; *************************************************************************
  451.  
  452. (if (exists #dfamakrosrc)
  453.   (
  454.     (if (askbool (prompt #askdfamakros) (help "") (default 0) (choices "Ja" "Nein"))
  455.       (
  456.         (set makrodir (askdir (prompt  #askdfadialdirmsg)
  457.                               (help    #askdfadialdirhelp)
  458.                               (default @default-dest)
  459.                       )
  460.         )
  461.         (if (<> makrodir "")
  462.           (
  463.             (copyfiles (prompt "DFA-Makro kopieren")
  464.                        (source #dfamakrosrc)
  465.                        (dest makrodir)
  466.                        (help "")
  467.                        (confirm "EXPERT")
  468.             )
  469.             (copyfiles (prompt "Anleitung zum DFA-Makro")
  470.                        (source "DFA/DragonDial.readme")
  471.                        (dest #dokdest)
  472.                        (newname "DFA-DragonDial.TXT")
  473.                        (help "")
  474.                        (infos)
  475.                        (confirm "EXPERT")
  476.  
  477.             )
  478.           )
  479.         )
  480.       )
  481.     )
  482.   )
  483. )
  484.  
  485. (complete 70)
  486.  
  487. ; *************************************************************************
  488. ; Entwicklerinformationen kopieren
  489. ; *************************************************************************
  490.  
  491. (if (exists #developersource)
  492.   (
  493.     (if (askbool (prompt #askdeveloper) (help "") (default 0) (choices "Ja" "Nein"))
  494.       (
  495.         (set developerpath (askdir (prompt  #askdeveloperdirmsg)
  496.                                    (help    #askdeveloperdirhelp)
  497.                                    (default @default-dest)
  498.                       )
  499.         )
  500.         (if (<> developerpath "")
  501.           (
  502.             
  503.             (set developerdir (tackon developerpath "DD-Entwickler"))
  504.             (makedir developerdir (infos))
  505.             (copyfiles (prompt "Entwicklerinfos kopieren")
  506.                        (source #developersource)
  507.                        (dest developerdir)
  508.                        (infos)
  509.                        (all)
  510.                        (help "")
  511.                        (confirm "EXPERT")
  512.             )
  513.           )
  514.         )
  515.       )
  516.     )
  517.   )
  518. )
  519.  
  520. (complete 80)
  521.  
  522. ; *************************************************************************
  523. ; Kopieren der Icons
  524. ; *************************************************************************
  525.  
  526. (working "Icons kopieren...")
  527. (run (cat "IconCopy " (tackon #iconsource "AppMenuDial") " " (tackon #destname "AppMenuDial") " UPDATE"))
  528. (run (cat "IconCopy " (tackon #iconsource "Dial") " " (tackon #destname "Dial") " UPDATE"))
  529. (run (cat "IconCopy " (tackon #iconsource "Dial_Project") " " (tackon #destname "Dial_Project") " UPDATE"))
  530. (run (cat "IconCopy " (tackon #iconsource "DragonDaemon") " " (tackon #destname "DragonDaemon") " UPDATE"))
  531. (run (cat "IconCopy " (tackon #iconsource "ProviderPrefs") " " (tackon #destname "ProviderPrefs") " UPDATE"))
  532. (run (cat "IconCopy " (tackon #iconsource "ShowCounter") " " (tackon #destname "ShowCounter") " UPDATE"))
  533. (run (cat "IconCopy " (tackon #iconsource "Docs") " " (tackon #destname "Docs") " UPDATE"))
  534.  
  535. (if (exists "SYS:WBStartup/AppMenuDial")
  536.   (
  537.     (run (cat "IconCopy " (tackon #iconsource "AppMenuDial") " " ("SYS:Wbstartup/AppMenuDial") " UPDATE"))
  538.   )
  539. )
  540.  
  541. (complete 85)
  542.  
  543. ; *************************************************************************
  544. ; Suchpfad in User-Startup einbinden
  545. ; *************************************************************************
  546.  
  547. (if (askbool (prompt #askuserstartup) (help "") (default 0) (choices "Ja" "Nein"))
  548.   (
  549.     (set cmd (cat "Path "#destname" add"))
  550.     (startup "DragonDaemon-Tools" 
  551.              (prompt (cat "Zeile '" cmd "'in User-Startup einfügen"))
  552.              (command cmd)
  553.              (help "")
  554.     )
  555.   )
  556. )
  557.  
  558. (complete 90)
  559.  
  560. ; *************************************************************************
  561. ; ENV-Variablen setzen (default dialport)
  562. ; *************************************************************************
  563.  
  564. (if (askbool (prompt #askenv) (help #helpenv) (default 0) (choices "Ja" "Nein"))
  565.   (
  566.     (set result
  567.              (askchoice (prompt "Bevorzugten Port auswählen")
  568.                         (help "")
  569.                         (default 0)
  570.                         (choices "1" "2" "3")
  571.              )
  572.     )
  573.     (set defdialport (+ result 1))
  574.     (textfile  (prompt "ENV-Variable in ENV anlegen")
  575.                (help "")
  576.                (dest "ENV:DEFDIALPORT")
  577.                (append defdialport)
  578.     )
  579.     (textfile  (prompt "ENV-Variable in ENVARC anlegen")
  580.                (help "")
  581.                (dest "ENVARC:DEFDIALPORT")
  582.                (append defdialport)
  583.     )
  584.   )
  585. )
  586.  
  587. (complete 95)
  588.  
  589. ; *************************************************************************
  590. ; Falls vorhanden, einen LiesMich-Text anzeigen
  591. ; *************************************************************************
  592.  
  593. (if (exists #liesmichtext)
  594.   (run (cat "sys:utilities/Multiview " #liesmichtext))
  595. )
  596.  
  597. ; *************************************************************************
  598. ; Aktuelles Verzeichnis setzen
  599. ; *************************************************************************
  600.  
  601. (if (exists (tackon #destname "DragonDaemon"))
  602.   (
  603.     (set @default-dest #destname)
  604.   )
  605.   (
  606.     (message #nodaemon)
  607.     (set @default-dest "")
  608.   )
  609. )
  610. (complete 100)
  611.  
  612. ; *************************************************************************
  613. ; Ende der Installation
  614. ; *************************************************************************
  615.  
  616.